home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbmacro.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-29  |  1.9 KB  |  30 lines
  1. (*===========================================================================*)
  2. (* In line macros for faster execution                                       *)
  3. (*                                                                           *)
  4. (*   Copyright 1989 by H. Roy Engehausen.  All rights reserved.              *)
  5. (*   This software may be freely distributed AND used, but it may not        *)
  6. (*   under any circumstances be sold by anyone other than the author.        *)
  7. (*   It may be distributed by a commercial company as long as it is          *)
  8. (*   FOR no cost.                                                            *)
  9. (*                                                                           *)
  10. (*===========================================================================*)
  11.  
  12. (*===========================================================================*)
  13. (* MIN(x, y) -- For words                                                    *)
  14. (*===========================================================================*)
  15.  
  16. FUNCTION min_w(n1 : WORD; n2 : WORD) : WORD;
  17.  
  18.   (*-------------------------------------------------------------------------*)
  19.   (*                                                                         *)
  20.   (*            POP AX                                                       *)
  21.   (*            POP BX                                                       *)
  22.   (*            CMP AX,BX                                                    *)
  23.   (*            JBE Z                                                        *)
  24.   (*            MOV AX,BX                                                    *)
  25.   (*      Z:                                                                 *)
  26.   (*                                                                         *)
  27.   (*-------------------------------------------------------------------------*)
  28.  
  29.   INLINE($58/$5B/$3B/$C3/$76/$02/$8B/$C3);
  30.